home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / AMON_Extension.lha / amon_extension / examples_asc / FastJoy.Asc < prev    next >
Text File  |  1995-08-04  |  268b  |  18 lines
  1. 'Program: Simple FastJoy example 
  2. ' Author: Paul Overy.
  3. '   Date: 19/7/95
  4. '
  5. X=100 : Y=100
  6. _ADRX=Varptr(X)
  7. _ADRY=Varptr(Y)
  8. '
  9. Repeat 
  10.    '
  11.    Fast Joy1 _ADRX,1,_ADRY,1
  12.    '
  13.    Text 0,10,"X:"+Str$(X)-" "+" Y:"+Str$(Y)-" "+"  "
  14.    Plot X,Y
  15.    Wait Vbl 
  16.    '
  17. Until Fire(1)
  18.